# import library
library(xlsx)
library(rJava)
library(xlsxjars)
library(class, lib.loc = "C:/Program Files/R/R-3.6.0/library")
library(stats4, lib.loc = "C:/Program Files/R/R-3.6.0/library")
library(splines, lib.loc = "C:/Program Files/R/R-3.6.0/library")
library(foreign, lib.loc = "C:/Program Files/R/R-3.6.0/library")
# read in the worksheet named Sheet1
mydata <- read.xlsx("C:/Users/Admin/Desktop/Mediamente consulting/TESI/DB/DATI ISTAT DA IMPORTARE/ISTAT_FINAL.xlsx", 
						sheetName= "Sheet1", header = TRUE)
#View data
View(mydata)
mydata
summary(mydata)
#grafico
plot (mydata$ANNO_2016,mydata$ANNO_2017,xlab="2016",ylab="2017",main="2016 vs 2017")
#grafico che prende valore da ~ a
plot (mydata$ANNO_2007~mydata$ANNO_2017)
#media
mean1617=  mean(mydata$ANNO_2017&mydata$ANNO_2016)
#restituisce la retta di regressione
lm(mydata$ANNO_2007~mydata$ANNO_2017)


